EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/earcd/biz/cloan/animgif_.lha/AnimGIF_Update/Install

Text File | 1997-02-10 | 5KB | 141 lines

; $VER: InstallAnimGIF_Update 1.1
; Cloanto AnimGIF Update Installer Script
; Copyright © 1996, 1997 Cloanto Italia srl
; Cloanto is a registered trademark of Cloanto Italia srl
; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
;  Reproduced and distributed under license from Commodore"
; New installer icon design Copyright © 1994 Cloanto Italia srl

(set #which-dir
    "Please indicate the directory where Personal Paint 7 is installed:")

(set #which-dir-help
    (cat "\nThis program updates the Rexx scripts and the I/O "
    "library which are used by Personal Paint 7 to create and "
    "load GIF animations."
    "\n\nPlease specify the full path of the installed Personal "
    "Paint software, including the final \"PPaint\" directory name "
    "(or other, if a different drawer name was used).\n\n"
    @askdir-help))

(set #message-loadanimgifok
    "\nThis update is not required for the LoadAnimGif Rexx script which is already installed. This step will be skipped.")

(set #message-saveanimgifok
    "\nThis update is not required for the SaveAnimGif Rexx script which is already installed. This step will be skipped.")

(set #message-pgifioliboklcl
    "\nThis update is not required for the Personal GIF I/O library which is already installed in PPaint:libs. This step will be skipped.")

(set #message-pgifioliboksys
    "\nThis update is not required for the Personal GIF I/O library which is already installed in LIBS:. This step will be skipped.")

(set #message-pgifiolibnotoklcl
    "\nThis update was not designed for the version of the Personal GIF I/O library which was found in PPaint:libs. This step will be skipped.")

(set #message-pgifiolibnotoksys
    "\nThis update was not designed for the version of the Personal GIF I/O library which was found in LIBS:. This step will be skipped.")

(set #error-loadanimgif
    "\nLoadAnimGif Rexx script could not be found in PPaint:Rexx. It will not be updated.")

(set #error-saveanimgif
    "\nSaveAnimGif Rexx script could not be found in PPaint:Rexx. It will not be updated.")

(set #error-pgifiolib
    "\nPersonal GIF I/O library could not be found in PPaint:libs. It will not be updated.")

(set #busy-loadanimgif
    "Updating LoadAnimGif Rexx script.")

(set #busy-saveanimgif
    "Updating SaveAnimGif Rexx script.")

(set #busy-pgifioliblcl
    "Updating Personal GIF I/O library in PPaint:libs.")

(set #busy-pgifiolibsys
    "Updating Personal GIF I/O library in LIBS:.")

(if (AND (<> (getassign "PSUITEROOT" "a") "") (<> (getassign "KARACDROOT" "a") "")) (set ppaint_dest "") (set ppaint_dest (getassign "PPaint" "a")))
(if (<> (getassign "PCDPPAINT" "a") "") (set ppaint_dest (getassign "PCDPPAINT" "a")))
(if (AND (<> (getdevice ppaint_dest)(getdevice "RAM:"))(< (getdiskspace ppaint_dest) 10240)) (set ppaint_dest ""))
(if (= ppaint_dest "") (set ppaint_dest @default-dest))

(set ppaint_dest (askdir
    (prompt #which-dir)
    (help #which-dir-help)
    (default ppaint_dest)
    (newpath)
))

(set target1 (tackon ppaint_dest "PPaint"))
(if (<> (exists target1) 1) (if (= (exists target1) 2) (set ppaint_dest target1)))
(set @default-dest ppaint_dest)

(working #busy-loadanimgif)
(set source1 "Rexx/LoadAnimGif.pprx")
(set target1 (tackon ppaint_dest source1))
(if (<> (exists target1) 1) (message #error-loadanimgif) (
    (if (AND (NOT (earlier target1 source1)) (>= (getsize target1) (getsize source1))) (message #message-loadanimgifok) (
        copyfiles
            (prompt #busy-loadanimgif)
            (help @copyfiles-help)
            (source source1)
            (dest (pathonly target1))
            (optional "nofail" "force")
            (confirm)
    ))
))

(working #busy-saveanimgif)
(set source1 "Rexx/SaveAnimGif.pprx")
(set target1 (tackon ppaint_dest source1))
(if (<> (exists target1) 1) (message #error-saveanimgif) (
    (if (AND (NOT (earlier target1 source1)) (>= (getsize target1) (getsize source1))) (message #message-saveanimgifok) (
        copyfiles
            (prompt #busy-saveanimgif)
            (help @copyfiles-help)
            (source source1)
            (dest (pathonly target1))
            (optional "nofail" "force")
            (confirm)
    ))
))

(set target1 (tackon ppaint_dest "libs/personal_gif_io.library"))
(if (<> (exists target1) 1) (message #error-pgifiolib) (
    (if (>= (getversion target1) 327683) (message #message-pgifioliboklcl) (
        (if (= (getsize target1) 12112) (
            (working #busy-pgifioliblcl)
            (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_51.pch \"" target1 "\""))
            (run runstring)
        ))
        (if (<> (getsize target1) 12596) (message #message-pgifiolibnotoklcl) (
            (working #busy-pgifioliblcl)
            (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_52.pch \"" target1 "\""))
            (run runstring)
            (run "Avail >NIL: <NIL: FLUSH")
        ))
    ))
))

(set target1 "LIBS:personal_gif_io.library")
(if (= (exists target1) 1) (
    (if (>= (getversion target1) 327683) (message #message-pgifioliboksys) (
        (if (= (getsize target1) 12112) (
            (working #busy-pgifiolibsys)
            (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_51.pch \"" target1 "\""))
            (run runstring)
        ))
        (if (<> (getsize target1) 12596) (message #message-pgifiolibnotoksys) (
            (working #busy-pgifiolibsys)
            (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -ppersonal_gif_io_52.pch \"" target1 "\""))
            (run runstring)
            (run "Avail >NIL: <NIL: FLUSH")
        ))
    ))
))

(exit)